/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Apple II / Essentials / Essentials.sea / MPW IIGS Interfaces / PIIGSIncludes / MediaControl.p

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 4d 65 64 69 61 43 | 6f 6e 74 72 6f 6c 2e 70 |..MediaC|ontrol.p|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 26 31 00 | 00 01 ac a8 43 a6 77 a8 |.....&1.|....C.w.|
|00000060| 43 a6 77 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |C.w.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 0e 18 00 00 |........|........|
|00000080| 7b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |{*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 3b 20 |********|*****.; |
|000000b0| 46 69 6c 65 3a 20 4d 65 | 64 69 61 43 6f 6e 74 72 |File: Me|diaContr|
|000000c0| 6f 6c 2e 70 0d 3b 0d 3b | 0d 3b 20 43 6f 70 79 72 |ol.p.;.;|.; Copyr|
|000000d0| 69 67 68 74 20 41 70 70 | 6c 65 20 43 6f 6d 70 75 |ight App|le Compu|
|000000e0| 74 65 72 2c 20 49 6e 63 | 2e 20 31 39 39 31 2d 31 |ter, Inc|. 1991-1|
|000000f0| 39 39 32 0d 3b 20 41 6c | 6c 20 52 69 67 68 74 73 |992.; Al|l Rights|
|00000100| 20 52 65 73 65 72 76 65 | 64 0d 3b 0d 2a 2a 2a 2a | Reserve|d.;.****|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000130| 2a 2a 2a 2a 2a 2a 2a 2a | 7d 0d 0d 55 4e 49 54 20 |********|}..UNIT |
|00000140| 4d 65 64 69 61 43 6f 6e | 74 72 6f 6c 3b 0d 0d 49 |MediaCon|trol;..I|
|00000150| 4e 54 45 52 46 41 43 45 | 0d 0d 55 53 45 53 09 54 |NTERFACE|..USES.T|
|00000160| 79 70 65 73 2c 20 47 53 | 4f 53 3b 0d 0d 7b 09 43 |ypes, GS|OS;..{.C|
|00000170| 6f 6e 74 72 6f 6c 20 76 | 61 6c 75 65 73 20 66 6f |ontrol v|alues fo|
|00000180| 72 20 4d 43 43 6f 6e 74 | 72 6f 6c 3a 20 7d 0d 0d |r MCCont|rol: }..|
|00000190| 43 4f 4e 53 54 0d 09 6d | 63 43 49 6e 69 74 20 3d |CONST..m|cCInit =|
|000001a0| 20 24 30 30 30 31 3b 09 | 09 7b 20 49 6e 69 74 69 | $0001;.|.{ Initi|
|000001b0| 61 6c 69 7a 65 20 70 6c | 61 79 65 72 2e 20 7d 0d |alize pl|ayer. }.|
|000001c0| 09 6d 63 43 45 6a 65 63 | 74 20 3d 20 24 30 30 30 |.mcCEjec|t = $000|
|000001d0| 32 3b 09 09 7b 20 45 6a | 65 63 74 20 64 69 73 63 |2;..{ Ej|ect disc|
|000001e0| 2e 20 7d 0d 09 6d 63 43 | 56 69 64 65 6f 4f 6e 20 |. }..mcC|VideoOn |
|000001f0| 3d 20 24 30 30 30 33 3b | 09 09 7b 20 54 75 72 6e |= $0003;|..{ Turn|
|00000200| 20 76 69 64 65 6f 20 6f | 6e 2e 20 7d 0d 09 6d 63 | video o|n. }..mc|
|00000210| 56 69 64 65 6f 4f 66 66 | 20 3d 20 24 30 30 30 34 |VideoOff| = $0004|
|00000220| 3b 09 09 7b 20 54 75 72 | 6e 20 76 69 64 65 6f 20 |;..{ Tur|n video |
|00000230| 6f 66 66 2e 20 7d 0d 09 | 6d 63 43 44 69 73 70 6c |off. }..|mcCDispl|
|00000240| 61 79 4f 6e 20 3d 20 24 | 30 30 30 35 3b 09 7b 20 |ayOn = $|0005;.{ |
|00000250| 54 75 72 6e 20 76 69 64 | 65 6f 20 70 6f 73 69 74 |Turn vid|eo posit|
|00000260| 69 6f 6e 20 64 69 73 70 | 6c 61 79 20 6f 6e 2e 20 |ion disp|lay on. |
|00000270| 7d 0d 09 6d 63 43 44 69 | 73 70 6c 61 79 4f 66 66 |}..mcCDi|splayOff|
|00000280| 20 3d 20 24 30 30 30 36 | 3b 09 7b 20 54 75 72 6e | = $0006|;.{ Turn|
|00000290| 20 76 69 64 65 6f 20 70 | 6f 73 69 74 69 6f 6e 20 | video p|osition |
|000002a0| 64 69 73 70 6c 61 79 20 | 6f 66 66 2e 20 7d 0d 09 |display |off. }..|
|000002b0| 6d 63 43 42 6c 61 6e 6b | 56 69 64 65 6f 20 3d 20 |mcCBlank|Video = |
|000002c0| 24 30 30 30 37 3b 09 7b | 20 42 6c 61 6e 6b 20 76 |$0007;.{| Blank v|
|000002d0| 69 64 65 6f 20 66 6f 72 | 20 6e 65 78 74 20 4d 43 |ideo for| next MC|
|000002e0| 53 65 61 72 63 68 54 6f | 2e 20 7d 0d 09 6d 63 43 |SearchTo|. }..mcC|
|000002f0| 44 65 66 61 75 6c 74 43 | 6f 6d 20 3d 20 24 30 30 |DefaultC|om = $00|
|00000300| 30 38 3b 09 7b 20 53 65 | 74 20 64 65 66 61 75 6c |08;.{ Se|t defaul|
|00000310| 74 20 63 6f 6d 6d 75 6e | 69 63 61 74 69 6f 6e 73 |t commun|ications|
|00000320| 2e 20 7d 0d 09 6d 63 43 | 4c 6f 63 6b 44 65 76 20 |. }..mcC|LockDev |
|00000330| 3d 20 24 30 30 30 39 3b | 09 09 7b 20 53 65 74 20 |= $0009;|..{ Set |
|00000340| 74 68 65 20 64 65 76 69 | 63 65 20 74 6f 20 6c 6f |the devi|ce to lo|
|00000350| 63 6b 65 64 2e 20 7d 0d | 09 6d 63 43 55 6e 4c 6f |cked. }.|.mcCUnLo|
|00000360| 63 6b 44 65 76 20 3d 20 | 24 30 30 30 41 3b 09 7b |ckDev = |$000A;.{|
|00000370| 20 55 6e 6c 6f 63 6b 20 | 74 68 65 20 64 65 76 69 | Unlock |the devi|
|00000380| 63 65 2e 20 7d 0d 0d 09 | 6d 63 43 38 44 61 74 61 |ce. }...|mcC8Data|
|00000390| 31 53 74 6f 70 20 3d 20 | 24 30 30 32 38 3b 09 7b |1Stop = |$0028;.{|
|000003a0| 20 53 65 74 20 38 20 2d | 20 64 61 74 61 20 20 31 | Set 8 -| data  1|
|000003b0| 20 2d 20 73 74 6f 70 20 | 62 69 74 2e 20 7d 0d 09 | - stop |bit. }..|
|000003c0| 6d 63 43 37 44 61 74 61 | 31 53 74 6f 70 20 3d 20 |mcC7Data|1Stop = |
|000003d0| 24 30 30 32 39 3b 09 7b | 20 53 65 74 20 37 20 2d |$0029;.{| Set 7 -|
|000003e0| 20 64 61 74 61 20 20 31 | 20 2d 20 73 74 6f 70 20 | data  1| - stop |
|000003f0| 62 69 74 2e 20 7d 0d 09 | 6d 63 43 36 44 61 74 61 |bit. }..|mcC6Data|
|00000400| 31 53 74 6f 70 20 3d 20 | 24 30 30 32 41 3b 09 7b |1Stop = |$002A;.{|
|00000410| 20 53 65 74 20 36 20 2d | 20 64 61 74 61 20 20 31 | Set 6 -| data  1|
|00000420| 20 2d 20 73 74 6f 70 20 | 62 69 74 2e 20 7d 0d 09 | - stop |bit. }..|
|00000430| 6d 63 43 35 44 61 74 61 | 31 53 74 6f 70 20 3d 20 |mcC5Data|1Stop = |
|00000440| 24 30 30 32 42 3b 09 7b | 20 53 65 74 20 35 20 2d |$002B;.{| Set 5 -|
|00000450| 20 64 61 74 61 20 20 31 | 20 2d 20 73 74 6f 70 20 | data  1| - stop |
|00000460| 62 69 74 2e 20 7d 0d 09 | 6d 63 43 38 44 61 74 61 |bit. }..|mcC8Data|
|00000470| 32 53 74 6f 70 20 3d 20 | 24 30 30 32 43 3b 09 7b |2Stop = |$002C;.{|
|00000480| 20 53 65 74 20 38 20 2d | 20 64 61 74 61 20 20 32 | Set 8 -| data  2|
|00000490| 20 2d 20 73 74 6f 70 20 | 62 69 74 2e 20 7d 0d 09 | - stop |bit. }..|
|000004a0| 6d 63 43 37 44 61 74 61 | 32 53 74 6f 70 20 3d 20 |mcC7Data|2Stop = |
|000004b0| 24 30 30 32 44 3b 09 7b | 20 53 65 74 20 37 20 2d |$002D;.{| Set 7 -|
|000004c0| 20 64 61 74 61 20 20 32 | 20 2d 20 73 74 6f 70 20 | data  2| - stop |
|000004d0| 62 69 74 2e 20 7d 0d 09 | 6d 63 43 36 44 61 74 61 |bit. }..|mcC6Data|
|000004e0| 32 53 74 6f 70 20 3d 20 | 24 30 30 32 45 3b 09 7b |2Stop = |$002E;.{|
|000004f0| 20 53 65 74 20 36 20 2d | 20 64 61 74 61 20 20 32 | Set 6 -| data  2|
|00000500| 20 2d 20 73 74 6f 70 20 | 62 69 74 2e 20 7d 0d 09 | - stop |bit. }..|
|00000510| 6d 63 43 35 44 61 74 61 | 32 53 74 6f 70 20 3d 20 |mcC5Data|2Stop = |
|00000520| 24 30 30 32 46 3b 09 7b | 20 53 65 74 20 35 20 2d |$002F;.{| Set 5 -|
|00000530| 20 64 61 74 61 20 20 32 | 20 2d 20 73 74 6f 70 20 | data  2| - stop |
|00000540| 62 69 74 2e 20 7d 0d 0d | 09 6d 63 43 42 61 75 64 |bit. }..|.mcCBaud|
|00000550| 44 66 6c 74 20 3d 20 24 | 30 30 33 32 3b 09 7b 20 |Dflt = $|0032;.{ |
|00000560| 53 65 74 20 62 61 75 64 | 20 72 61 74 65 20 74 6f |Set baud| rate to|
|00000570| 20 63 6f 6e 74 72 6f 6c | 20 70 61 6e 65 6c 20 73 | control| panel s|
|00000580| 65 74 74 69 6e 67 2e 20 | 7d 0d 09 6d 63 43 42 61 |etting. |}..mcCBa|
|00000590| 75 64 35 30 20 3d 20 24 | 30 30 33 33 3b 09 09 7b |ud50 = $|0033;..{|
|000005a0| 20 53 65 74 20 35 30 20 | 62 61 75 64 2e 20 7d 0d | Set 50 |baud. }.|
|000005b0| 09 6d 63 43 42 61 75 64 | 37 35 20 3d 20 24 30 30 |.mcCBaud|75 = $00|
|000005c0| 33 34 3b 09 09 7b 20 53 | 65 74 20 37 35 20 62 61 |34;..{ S|et 75 ba|
|000005d0| 75 64 2e 20 7d 0d 09 6d | 63 43 42 61 75 64 31 31 |ud. }..m|cCBaud11|
|000005e0| 30 20 3d 20 24 30 30 33 | 35 3b 09 09 7b 20 53 65 |0 = $003|5;..{ Se|
|000005f0| 74 20 31 31 30 20 62 61 | 75 64 2e 20 7d 0d 09 6d |t 110 ba|ud. }..m|
|00000600| 63 43 42 61 75 64 31 33 | 34 20 3d 20 24 30 30 33 |cCBaud13|4 = $003|
|00000610| 36 3b 09 09 7b 20 53 65 | 74 20 31 33 34 20 62 61 |6;..{ Se|t 134 ba|
|00000620| 75 64 2e 20 7d 0d 09 6d | 63 43 42 61 75 64 31 35 |ud. }..m|cCBaud15|
|00000630| 30 20 3d 20 24 30 30 33 | 37 3b 09 09 7b 20 53 65 |0 = $003|7;..{ Se|
|00000640| 74 20 31 35 30 20 62 61 | 75 64 2e 20 7d 0d 09 6d |t 150 ba|ud. }..m|
|00000650| 63 43 42 61 75 64 33 30 | 30 20 3d 20 24 30 30 33 |cCBaud30|0 = $003|
|00000660| 38 3b 09 09 7b 20 53 65 | 74 20 33 30 30 20 62 61 |8;..{ Se|t 300 ba|
|00000670| 75 64 2e 20 7d 0d 09 6d | 63 43 42 61 75 64 36 30 |ud. }..m|cCBaud60|
|00000680| 30 20 3d 20 24 30 30 33 | 39 3b 09 09 7b 20 53 65 |0 = $003|9;..{ Se|
|00000690| 74 20 36 30 30 20 62 61 | 75 64 2e 20 7d 0d 09 6d |t 600 ba|ud. }..m|
|000006a0| 63 43 42 61 75 64 31 32 | 30 30 20 3d 20 24 30 30 |cCBaud12|00 = $00|
|000006b0| 33 41 3b 09 7b 20 53 65 | 74 20 31 32 30 30 20 62 |3A;.{ Se|t 1200 b|
|000006c0| 61 75 64 2e 20 7d 0d 09 | 6d 63 43 42 61 75 64 31 |aud. }..|mcCBaud1|
|000006d0| 38 30 30 20 3d 20 24 30 | 30 33 42 3b 09 7b 20 53 |800 = $0|03B;.{ S|
|000006e0| 65 74 20 31 38 30 30 20 | 62 61 75 64 2e 20 7d 0d |et 1800 |baud. }.|
|000006f0| 09 6d 63 43 42 61 75 64 | 32 34 30 30 20 3d 20 24 |.mcCBaud|2400 = $|
|00000700| 30 30 33 43 3b 09 7b 20 | 53 65 74 20 32 34 30 30 |003C;.{ |Set 2400|
|00000710| 20 62 61 75 64 2e 20 7d | 0d 09 6d 63 43 42 61 75 | baud. }|..mcCBau|
|00000720| 64 33 36 30 30 20 3d 20 | 24 30 30 33 44 3b 09 7b |d3600 = |$003D;.{|
|00000730| 20 53 65 74 20 33 36 30 | 30 20 62 61 75 64 2e 20 | Set 360|0 baud. |
|00000740| 7d 0d 09 6d 63 43 42 61 | 75 64 34 38 30 30 20 3d |}..mcCBa|ud4800 =|
|00000750| 20 24 30 30 33 45 3b 09 | 7b 20 53 65 74 20 34 38 | $003E;.|{ Set 48|
|00000760| 30 30 20 62 61 75 64 2e | 20 7d 0d 09 6d 63 43 42 |00 baud.| }..mcCB|
|00000770| 61 75 64 37 32 30 30 20 | 3d 20 24 30 30 33 46 3b |aud7200 |= $003F;|
|00000780| 09 7b 20 53 65 74 20 37 | 32 30 30 20 62 61 75 64 |.{ Set 7|200 baud|
|00000790| 2e 20 7d 0d 09 6d 63 43 | 42 61 75 64 39 36 30 30 |. }..mcC|Baud9600|
|000007a0| 20 3d 20 24 30 30 34 30 | 3b 09 7b 20 53 65 74 20 | = $0040|;.{ Set |
|000007b0| 39 36 30 30 20 62 61 75 | 64 2e 20 7d 0d 09 6d 63 |9600 bau|d. }..mc|
|000007c0| 43 42 61 75 64 31 39 32 | 30 30 20 3d 20 24 30 30 |CBaud192|00 = $00|
|000007d0| 34 31 3b 09 7b 20 53 65 | 74 20 31 39 32 30 30 20 |41;.{ Se|t 19200 |
|000007e0| 62 61 75 64 2e 20 7d 0d | 0d 09 6d 63 43 4d 6f 64 |baud. }.|..mcCMod|
|000007f0| 65 6d 20 3d 20 24 30 30 | 36 34 3b 09 09 7b 20 53 |em = $00|64;..{ S|
|00000800| 65 74 20 74 6f 20 6d 6f | 64 65 6d 20 70 6f 72 74 |et to mo|dem port|
|00000810| 2e 20 7d 0d 09 6d 63 43 | 50 72 69 6e 74 65 72 20 |. }..mcC|Printer |
|00000820| 3d 20 24 30 30 36 35 3b | 09 09 7b 20 53 65 74 20 |= $0065;|..{ Set |
|00000830| 74 6f 20 70 72 69 6e 74 | 65 72 20 70 6f 72 74 2e |to print|er port.|
|00000840| 20 7d 0d 0d 09 6d 63 43 | 49 67 6e 6f 72 65 44 53 | }...mcC|IgnoreDS|
|00000850| 20 3d 20 24 30 30 43 38 | 3b 09 7b 20 49 67 6e 6f | = $00C8|;.{ Igno|
|00000860| 72 65 20 22 64 69 73 6b | 20 73 77 69 74 63 68 65 |re "disk| switche|
|00000870| 64 22 20 47 53 4f 53 20 | 65 72 72 6f 72 73 2e 20 |d" GSOS |errors. |
|00000880| 7d 0d 09 6d 63 43 52 65 | 70 6f 72 74 44 53 20 3d |}..mcCRe|portDS =|
|00000890| 20 24 30 30 43 39 3b 09 | 7b 20 52 65 70 6f 72 74 | $00C9;.|{ Report|
|000008a0| 20 22 64 69 73 6b 20 73 | 77 69 74 63 68 65 64 22 | "disk s|witched"|
|000008b0| 20 47 53 4f 53 20 65 72 | 72 6f 72 73 2e 20 7d 0d | GSOS er|rors. }.|
|000008c0| 0d 0d 0d 7b 09 56 61 6c | 75 65 73 20 66 6f 72 20 |...{.Val|ues for |
|000008d0| 4d 43 47 65 74 46 65 61 | 74 75 72 65 73 3a 20 7d |MCGetFea|tures: }|
|000008e0| 0d 0d 09 6d 63 46 54 79 | 70 65 73 20 3d 20 30 3b |...mcFTy|pes = 0;|
|000008f0| 09 09 09 7b 20 48 6f 77 | 20 74 68 65 20 64 69 73 |...{ How| the dis|
|00000900| 63 20 69 73 20 6f 72 67 | 61 6e 69 7a 65 64 20 28 |c is org|anized (|
|00000910| 66 72 61 6d 65 73 2c 20 | 63 68 61 70 74 65 72 73 |frames, |chapters|
|00000920| 2c 20 65 74 63 2e 29 2e | 20 7d 0d 09 6d 63 46 53 |, etc.).| }..mcFS|
|00000930| 74 65 70 20 3d 20 31 3b | 09 09 09 7b 20 4d 61 78 |tep = 1;|...{ Max|
|00000940| 69 6d 75 6d 20 66 70 73 | 20 73 70 65 65 64 20 76 |imum fps| speed v|
|00000950| 61 6c 75 65 20 28 6e 6f | 72 6d 61 6c 20 69 73 20 |alue (no|rmal is |
|00000960| 32 35 35 29 2e 20 7d 0d | 09 6d 63 46 52 65 63 6f |255). }.|.mcFReco|
|00000970| 72 64 20 3d 20 32 3b 09 | 09 09 7b 20 44 65 76 69 |rd = 2;.|..{ Devi|
|00000980| 63 65 20 73 75 70 70 6f | 72 74 73 20 4d 43 52 65 |ce suppo|rts MCRe|
|00000990| 63 6f 72 64 2e 20 7d 0d | 09 6d 63 46 56 69 64 65 |cord. }.|.mcFVide|
|000009a0| 6f 20 3d 20 33 3b 09 09 | 09 7b 20 44 65 76 69 63 |o = 3;..|.{ Devic|
|000009b0| 65 20 73 75 70 70 6f 72 | 74 73 20 74 6f 67 67 6c |e suppor|ts toggl|
|000009c0| 69 6e 67 20 76 69 64 65 | 6f 2e 20 7d 0d 09 6d 63 |ing vide|o. }..mc|
|000009d0| 46 45 6a 65 63 74 20 3d | 20 34 3b 09 09 09 7b 20 |FEject =| 4;...{ |
|000009e0| 44 65 76 69 63 65 20 73 | 75 70 70 6f 72 74 73 20 |Device s|upports |
|000009f0| 65 6a 65 63 74 69 6e 67 | 20 6d 65 64 69 75 6d 2e |ejecting| medium.|
|00000a00| 20 7d 0d 09 6d 63 46 4c | 6f 63 6b 20 3d 20 35 3b | }..mcFL|ock = 5;|
|00000a10| 09 09 09 7b 20 44 65 76 | 69 63 65 20 73 75 70 70 |...{ Dev|ice supp|
|00000a20| 6f 72 74 73 20 75 73 65 | 72 20 6c 6f 63 6b 20 28 |orts use|r lock (|
|00000a30| 6c 6f 63 6b 69 6e 67 20 | 75 73 65 72 20 66 72 6f |locking |user fro|
|00000a40| 6d 20 70 68 79 73 69 63 | 61 6c 6c 79 0d 09 09 09 |m physic|ally....|
|00000a50| 09 09 09 09 20 20 6f 70 | 65 72 61 74 69 6e 67 20 |....  op|erating |
|00000a60| 74 68 65 20 64 65 76 69 | 63 65 29 2e 20 7d 0d 09 |the devi|ce). }..|
|00000a70| 6d 63 46 56 44 69 73 70 | 6c 61 79 20 3d 20 36 3b |mcFVDisp|lay = 6;|
|00000a80| 09 09 7b 20 44 65 76 69 | 63 65 20 73 75 70 70 6f |..{ Devi|ce suppo|
|00000a90| 72 74 73 20 76 69 64 65 | 6f 20 64 69 73 70 6c 61 |rts vide|o displa|
|00000aa0| 79 20 6f 66 20 6c 6f 63 | 61 74 69 6f 6e 2e 20 7d |y of loc|ation. }|
|00000ab0| 0d 09 6d 63 46 56 4f 76 | 65 72 6c 61 79 20 3d 20 |..mcFVOv|erlay = |
|00000ac0| 37 3b 09 09 7b 20 4e 6f | 2e 20 6f 66 20 6c 69 6e |7;..{ No|. of lin|
|00000ad0| 65 73 20 6f 66 20 6f 76 | 65 72 6c 61 79 20 63 68 |es of ov|erlay ch|
|00000ae0| 61 72 61 63 74 65 72 73 | 20 64 65 76 69 63 65 20 |aracters| device |
|00000af0| 73 75 70 70 6f 72 74 73 | 2e 20 7d 0d 09 6d 63 46 |supports|. }..mcF|
|00000b00| 56 4f 43 68 61 72 73 20 | 3d 20 38 3b 09 09 09 7b |VOChars |= 8;...{|
|00000b10| 20 4e 6f 2e 20 6f 66 20 | 63 68 61 72 73 2f 6c 69 | No. of |chars/li|
|00000b20| 6e 65 20 73 75 70 70 6f | 72 74 65 64 20 62 79 20 |ne suppo|rted by |
|00000b30| 6f 76 65 72 6c 61 79 2e | 20 7d 0d 09 6d 63 46 56 |overlay.| }..mcFV|
|00000b40| 6f 6c 75 6d 65 20 3d 20 | 39 3b 09 09 09 7b 20 44 |olume = |9;...{ D|
|00000b50| 6f 65 73 20 76 6f 6c 75 | 6d 65 20 63 6f 6e 74 72 |oes volu|me contr|
|00000b60| 6f 6c 3f 20 7d 0d 0d 0d | 0d 7b 09 50 6f 73 69 74 |ol? }...|.{.Posit|
|00000b70| 69 6f 6e 20 75 6e 69 74 | 20 74 79 70 65 73 20 66 |ion unit| types f|
|00000b80| 6f 72 20 4d 43 47 65 74 | 50 6f 73 69 74 69 6f 6e |or MCGet|Position|
|00000b90| 20 61 6e 64 20 6f 74 68 | 65 72 20 63 61 6c 6c 73 | and oth|er calls|
|00000ba0| 3a 20 7d 0d 0d 09 6d 63 | 49 6e 43 68 61 70 74 65 |: }...mc|InChapte|
|00000bb0| 72 73 20 3d 20 31 3b 09 | 09 7b 20 50 6f 73 69 74 |rs = 1;.|.{ Posit|
|00000bc0| 69 6f 6e 20 69 73 20 6d | 65 61 73 75 72 65 64 20 |ion is m|easured |
|00000bd0| 69 6e 20 63 68 61 70 74 | 65 72 73 2e 20 7d 0d 09 |in chapt|ers. }..|
|00000be0| 6d 63 49 6e 46 72 61 6d | 65 73 20 3d 20 32 3b 09 |mcInFram|es = 2;.|
|00000bf0| 09 09 7b 20 50 6f 73 69 | 74 69 6f 6e 20 69 73 20 |..{ Posi|tion is |
|00000c00| 6d 65 61 73 75 72 65 64 | 20 69 6e 20 66 72 61 6d |measured| in fram|
|00000c10| 65 73 2e 20 7d 0d 09 6d | 63 49 6e 54 69 6d 65 20 |es. }..m|cInTime |
|00000c20| 3d 20 33 3b 09 09 09 7b | 20 50 6f 73 69 74 69 6f |= 3;...{| Positio|
|00000c30| 6e 20 69 73 20 6d 65 61 | 73 75 72 65 64 20 69 6e |n is mea|sured in|
|00000c40| 20 68 6f 75 72 73 2c 6d | 69 6e 75 74 65 73 2c 73 | hours,m|inutes,s|
|00000c50| 65 63 6f 6e 64 73 2c 62 | 6c 6f 63 6b 73 2e 20 7d |econds,b|locks. }|
|00000c60| 0d 0d 0d 0d 7b 09 53 74 | 61 74 75 73 20 76 61 6c |....{.St|atus val|
|00000c70| 75 65 73 20 66 6f 72 20 | 4d 43 47 65 74 53 74 61 |ues for |MCGetSta|
|00000c80| 74 75 73 3a 20 7d 0d 0d | 09 6d 63 53 55 6e 6b 6e |tus: }..|.mcSUnkn|
|00000c90| 6f 77 6e 20 3d 20 24 30 | 30 30 30 3b 09 09 7b 20 |own = $0|000;..{ |
|00000ca0| 50 6c 61 79 65 72 20 75 | 6e 61 62 6c 65 20 74 6f |Player u|nable to|
|00000cb0| 20 64 65 74 65 72 6d 69 | 6e 65 20 74 68 69 73 20 | determi|ne this |
|00000cc0| 73 74 61 74 75 73 2e 20 | 7d 0d 0d 09 6d 63 53 44 |status. |}...mcSD|
|00000cd0| 65 76 69 63 65 54 79 70 | 65 20 3d 20 24 30 30 30 |eviceTyp|e = $000|
|00000ce0| 30 3b 09 7b 20 22 44 65 | 76 69 63 65 20 74 79 70 |0;.{ "De|vice typ|
|00000cf0| 65 22 20 73 65 6c 65 63 | 74 6f 72 2e 20 7d 0d 09 |e" selec|tor. }..|
|00000d00| 6d 63 53 4c 61 73 65 72 | 44 69 73 63 20 3d 20 24 |mcSLaser|Disc = $|
|00000d10| 30 30 30 31 3b 09 7b 20 | 56 69 64 65 6f 20 6c 61 |0001;.{ |Video la|
|00000d20| 73 65 72 20 64 69 73 63 | 20 70 6c 61 79 65 72 2e |ser disc| player.|
|00000d30| 20 7d 0d 09 6d 63 53 43 | 44 41 75 64 69 6f 20 3d | }..mcSC|DAudio =|
|00000d40| 20 24 30 30 30 32 3b 09 | 09 7b 20 41 75 64 69 6f | $0002;.|.{ Audio|
|00000d50| 20 43 44 20 70 6c 61 79 | 65 72 2e 20 7d 0d 09 6d | CD play|er. }..m|
|00000d60| 63 53 43 44 4c 61 73 65 | 72 43 44 20 3d 20 24 30 |cSCDLase|rCD = $0|
|00000d70| 30 30 33 3b 09 7b 20 43 | 6f 6d 62 69 6e 61 74 69 |003;.{ C|ombinati|
|00000d80| 6f 6e 20 6c 61 73 65 72 | 2f 43 44 20 70 6c 61 79 |on laser|/CD play|
|00000d90| 65 72 2e 20 7d 0d 09 6d | 63 53 56 43 52 20 3d 20 |er. }..m|cSVCR = |
|00000da0| 24 30 30 30 34 3b 09 09 | 09 7b 20 56 43 52 2e 20 |$0004;..|.{ VCR. |
|00000db0| 7d 0d 09 6d 63 53 43 61 | 6d 43 6f 72 64 65 72 20 |}..mcSCa|mCorder |
|00000dc0| 3d 20 24 30 30 30 35 3b | 09 7b 20 56 69 64 65 6f |= $0005;|.{ Video|
|00000dd0| 20 63 61 6d 65 72 61 2e | 20 7d 0d 0d 09 6d 63 53 | camera.| }...mcS|
|00000de0| 50 6c 61 79 53 74 61 74 | 75 73 20 3d 20 24 30 30 |PlayStat|us = $00|
|00000df0| 30 31 3b 09 7b 20 22 50 | 6c 61 79 20 73 74 61 74 |01;.{ "P|lay stat|
|00000e00| 75 73 22 20 73 65 6c 65 | 63 74 6f 72 2e 20 7d 0d |us" sele|ctor. }.|
|00000e10| 09 6d 63 53 50 6c 61 79 | 69 6e 67 20 3d 20 24 30 |.mcSPlay|ing = $0|
|00000e20| 30 30 31 3b 09 09 7b 20 | 54 68 65 20 64 65 76 69 |001;..{ |The devi|
|00000e30| 63 65 20 69 73 20 70 6c | 61 79 69 6e 67 2e 20 7d |ce is pl|aying. }|
|00000e40| 0d 09 6d 63 53 53 74 69 | 6c 6c 20 3d 20 24 30 30 |..mcSSti|ll = $00|
|00000e50| 30 32 3b 09 09 7b 20 54 | 68 65 20 64 65 76 69 63 |02;..{ T|he devic|
|00000e60| 65 20 69 73 20 6e 6f 74 | 20 70 6c 61 79 69 6e 67 |e is not| playing|
|00000e70| 20 28 70 61 75 73 65 64 | 29 2e 20 7d 0d 09 6d 63 | (paused|). }..mc|
|00000e80| 53 50 61 72 6b 65 64 20 | 3d 20 24 30 30 30 33 3b |SParked |= $0003;|
|00000e90| 09 09 7b 20 54 68 65 20 | 64 65 76 69 63 65 20 69 |..{ The |device i|
|00000ea0| 73 20 73 68 75 74 20 64 | 6f 77 6e 2e 20 7d 0d 0d |s shut d|own. }..|
|00000eb0| 09 6d 63 53 44 6f 6f 72 | 53 74 61 74 75 73 20 3d |.mcSDoor|Status =|
|00000ec0| 20 24 30 30 30 32 3b 09 | 7b 20 22 50 6c 61 79 65 | $0002;.|{ "Playe|
|00000ed0| 72 20 64 6f 6f 72 22 20 | 73 74 61 74 75 73 2e 20 |r door" |status. |
|00000ee0| 7d 0d 09 6d 63 53 44 6f | 6f 72 4f 70 65 6e 20 3d |}..mcSDo|orOpen =|
|00000ef0| 20 24 30 30 30 31 3b 0d | 09 6d 63 53 44 6f 6f 72 | $0001;.|.mcSDoor|
|00000f00| 43 6c 6f 73 65 64 20 3d | 20 24 30 30 30 32 3b 0d |Closed =| $0002;.|
|00000f10| 0d 09 6d 63 53 44 69 73 | 63 54 79 70 65 20 3d 20 |..mcSDis|cType = |
|00000f20| 24 30 30 30 33 3b 09 7b | 20 22 44 69 73 63 20 74 |$0003;.{| "Disc t|
|00000f30| 79 70 65 22 20 73 65 6c | 65 63 74 6f 72 2e 20 7d |ype" sel|ector. }|
|00000f40| 0d 09 6d 63 53 5f 43 4c | 56 20 3d 20 24 30 30 30 |..mcS_CL|V = $000|
|00000f50| 31 3b 09 09 7b 20 63 6f | 6e 73 74 61 6e 74 20 6c |1;..{ co|nstant l|
|00000f60| 69 6e 65 61 72 20 76 65 | 6c 6f 63 69 74 79 20 7d |inear ve|locity }|
|00000f70| 0d 09 6d 63 53 5f 43 41 | 56 20 3d 20 24 30 30 30 |..mcS_CA|V = $000|
|00000f80| 32 3b 09 09 7b 20 63 6f | 6e 73 74 61 6e 74 20 61 |2;..{ co|nstant a|
|00000f90| 6e 67 75 6c 61 72 20 76 | 65 6c 6f 63 69 74 79 20 |ngular v|elocity |
|00000fa0| 7d 0d 09 6d 63 53 5f 43 | 44 56 20 3d 20 24 30 30 |}..mcS_C|DV = $00|
|00000fb0| 30 33 3b 09 09 7b 20 63 | 6f 6d 70 61 63 74 20 64 |03;..{ c|ompact d|
|00000fc0| 69 73 63 20 76 69 64 65 | 6f 20 7d 0d 09 6d 63 53 |isc vide|o }..mcS|
|00000fd0| 5f 43 44 20 3d 20 24 30 | 30 30 34 3b 09 09 09 7b |_CD = $0|004;...{|
|00000fe0| 20 63 6f 6d 70 61 63 74 | 20 64 69 73 63 20 7d 0d | compact| disc }.|
|00000ff0| 0d 09 6d 63 53 44 69 73 | 63 53 69 7a 65 20 3d 20 |..mcSDis|cSize = |
|00001000| 24 30 30 30 34 3b 09 7b | 20 22 44 69 73 63 20 73 |$0004;.{| "Disc s|
|00001010| 69 7a 65 22 20 73 65 6c | 65 63 74 6f 72 2e 20 7d |ize" sel|ector. }|
|00001020| 0d 09 6d 63 53 44 69 73 | 63 33 69 6e 63 68 20 3d |..mcSDis|c3inch =|
|00001030| 20 24 30 30 30 33 3b 0d | 09 6d 63 53 44 69 73 63 | $0003;.|.mcSDisc|
|00001040| 35 69 6e 63 68 20 3d 20 | 24 30 30 30 35 3b 0d 09 |5inch = |$0005;..|
|00001050| 6d 63 53 44 69 73 63 38 | 69 6e 63 68 20 3d 20 24 |mcSDisc8|inch = $|
|00001060| 30 30 30 38 3b 0d 09 6d | 63 53 44 69 73 63 31 32 |0008;..m|cSDisc12|
|00001070| 69 6e 63 68 20 3d 20 24 | 30 30 30 43 3b 0d 0d 09 |inch = $|000C;...|
|00001080| 6d 63 53 44 69 73 63 53 | 69 64 65 20 3d 20 24 30 |mcSDiscS|ide = $0|
|00001090| 30 30 35 3b 09 7b 20 22 | 44 69 73 63 20 73 69 64 |005;.{ "|Disc sid|
|000010a0| 65 22 20 73 65 6c 65 63 | 74 6f 72 2e 20 7d 0d 09 |e" selec|tor. }..|
|000010b0| 6d 63 53 53 69 64 65 4f | 6e 65 20 3d 20 24 30 30 |mcSSideO|ne = $00|
|000010c0| 30 31 3b 0d 09 6d 63 53 | 53 69 64 65 54 77 6f 20 |01;..mcS|SideTwo |
|000010d0| 3d 20 24 30 30 30 32 3b | 0d 0d 09 6d 63 53 56 6f |= $0002;|...mcSVo|
|000010e0| 6c 75 6d 65 4c 20 3d 20 | 24 30 30 30 36 3b 09 09 |lumeL = |$0006;..|
|000010f0| 28 2a 20 43 75 72 72 65 | 6e 74 20 4c 65 66 74 20 |(* Curre|nt Left |
|00001100| 76 6f 6c 75 6d 65 20 73 | 65 6c 65 63 74 6f 72 20 |volume s|elector |
|00001110| 2a 29 0d 09 6d 63 53 56 | 6f 6c 75 6d 65 52 20 3d |*)..mcSV|olumeR =|
|00001120| 20 24 30 30 30 37 3b 09 | 09 28 2a 20 43 75 72 72 | $0007;.|.(* Curr|
|00001130| 65 6e 74 20 52 69 67 68 | 74 20 76 6f 6c 75 6d 65 |ent Righ|t volume|
|00001140| 20 73 65 6c 65 63 74 6f | 72 20 2a 29 0d 0d 0d 7b | selecto|r *)...{|
|00001150| 09 54 69 6d 65 20 70 61 | 72 61 6d 65 74 65 72 20 |.Time pa|rameter |
|00001160| 76 61 6c 75 65 73 20 66 | 6f 72 20 4d 43 47 65 74 |values f|or MCGet|
|00001170| 54 69 6d 65 73 3a 20 7d | 0d 0d 09 6d 63 45 6c 61 |Times: }|...mcEla|
|00001180| 70 73 65 64 54 72 61 63 | 6b 20 3d 20 24 30 30 30 |psedTrac|k = $000|
|00001190| 30 3b 09 7b 20 45 6c 61 | 70 73 65 64 20 74 69 6d |0;.{ Ela|psed tim|
|000011a0| 65 20 6f 6e 20 63 75 72 | 72 65 6e 74 20 74 72 61 |e on cur|rent tra|
|000011b0| 63 6b 2f 63 68 61 70 74 | 65 72 2e 20 7d 0d 09 6d |ck/chapt|er. }..m|
|000011c0| 63 52 65 6d 61 69 6e 54 | 72 61 63 6b 20 3d 20 24 |cRemainT|rack = $|
|000011d0| 30 30 30 31 3b 09 7b 20 | 52 65 6d 61 69 6e 69 6e |0001;.{ |Remainin|
|000011e0| 67 20 74 69 6d 65 20 6f | 6e 20 63 75 72 72 65 6e |g time o|n curren|
|000011f0| 74 20 74 72 61 63 6b 2f | 63 68 61 70 74 65 72 2e |t track/|chapter.|
|00001200| 20 7d 0d 09 6d 63 45 6c | 61 70 73 65 64 44 69 73 | }..mcEl|apsedDis|
|00001210| 63 20 3d 20 24 30 30 30 | 32 3b 09 7b 20 45 6c 61 |c = $000|2;.{ Ela|
|00001220| 70 73 65 64 20 74 69 6d | 65 20 6f 6e 20 64 69 73 |psed tim|e on dis|
|00001230| 63 2e 20 7d 0d 09 6d 63 | 52 65 6d 61 69 6e 44 69 |c. }..mc|RemainDi|
|00001240| 73 63 20 3d 20 24 30 30 | 30 33 3b 09 7b 20 52 65 |sc = $00|03;.{ Re|
|00001250| 6d 61 69 6e 69 6e 67 20 | 74 69 6d 65 20 6f 6e 20 |maining |time on |
|00001260| 64 69 73 63 2e 20 7d 0d | 09 6d 63 54 6f 74 61 6c |disc. }.|.mcTotal|
|00001270| 44 69 73 63 20 3d 20 24 | 30 30 30 34 3b 09 7b 20 |Disc = $|0004;.{ |
|00001280| 54 6f 74 61 6c 20 72 75 | 6e 20 74 69 6d 65 20 6f |Total ru|n time o|
|00001290| 6e 20 64 69 73 63 2e 20 | 7d 0d 09 6d 63 54 6f 74 |n disc. |}..mcTot|
|000012a0| 61 6c 46 72 61 6d 65 73 | 20 3d 20 24 30 30 30 35 |alFrames| = $0005|
|000012b0| 3b 09 7b 20 54 6f 74 61 | 6c 20 6e 75 6d 62 65 72 |;.{ Tota|l number|
|000012c0| 20 6f 66 20 66 72 61 6d | 65 73 20 6f 6e 20 64 69 | of fram|es on di|
|000012d0| 73 63 2e 20 7d 0d 09 6d | 63 54 72 61 63 6b 73 20 |sc. }..m|cTracks |
|000012e0| 3d 20 24 30 30 30 36 3b | 09 09 7b 20 42 69 6e 61 |= $0006;|..{ Bina|
|000012f0| 72 79 20 73 74 61 72 74 | 20 61 6e 64 20 65 6e 64 |ry start| and end|
|00001300| 69 6e 67 20 74 72 61 63 | 6b 20 6e 75 6d 62 65 72 |ing trac|k number|
|00001310| 73 20 28 62 69 74 73 20 | 33 31 2d 31 36 20 3d 20 |s (bits |31-16 = |
|00001320| 65 6e 64 69 6e 67 2c 0d | 09 09 09 09 09 09 09 20 |ending,.|....... |
|00001330| 20 62 69 74 73 20 31 35 | 2d 30 20 3d 20 73 74 61 | bits 15|-0 = sta|
|00001340| 72 74 69 6e 67 20 74 72 | 61 63 6b 20 6e 75 6d 62 |rting tr|ack numb|
|00001350| 65 72 2e 29 20 7d 0d 09 | 6d 63 44 69 73 63 49 44 |er.) }..|mcDiscID|
|00001360| 20 3d 20 24 30 30 30 37 | 3b 09 09 28 2a 20 44 69 | = $0007|;..(* Di|
|00001370| 73 63 27 73 20 69 64 65 | 6e 74 69 66 69 65 72 2e |sc's ide|ntifier.|
|00001380| 20 2a 29 0d 0d 0d 0d 7b | 09 41 75 64 69 6f 20 76 | *)....{|.Audio v|
|00001390| 61 6c 75 65 73 3a 20 7d | 0d 0d 09 6d 63 41 75 64 |alues: }|...mcAud|
|000013a0| 69 6f 4f 66 66 20 3d 20 | 24 30 30 30 30 3b 09 09 |ioOff = |$0000;..|
|000013b0| 09 7b 20 41 75 64 69 6f | 20 6f 66 66 2e 20 7d 0d |.{ Audio| off. }.|
|000013c0| 09 6d 63 41 75 64 69 6f | 52 69 67 68 74 20 3d 20 |.mcAudio|Right = |
|000013d0| 24 30 30 30 31 3b 09 09 | 7b 20 41 75 64 69 6f 20 |$0001;..|{ Audio |
|000013e0| 74 68 72 75 20 72 69 67 | 68 74 20 63 68 61 6e 6e |thru rig|ht chann|
|000013f0| 65 6c 20 6f 6e 6c 79 2e | 20 7d 0d 09 6d 63 41 75 |el only.| }..mcAu|
|00001400| 64 69 6f 4c 69 6e 52 20 | 3d 20 24 30 30 30 32 3b |dioLinR |= $0002;|
|00001410| 09 09 7b 20 41 75 64 69 | 6f 20 6c 65 66 74 20 69 |..{ Audi|o left i|
|00001420| 6e 20 72 69 67 68 74 20 | 6f 6e 6c 79 2e 20 7d 0d |n right |only. }.|
|00001430| 09 6d 63 41 75 64 69 6f | 4d 69 6e 52 20 3d 20 24 |.mcAudio|MinR = $|
|00001440| 30 30 30 33 3b 09 09 7b | 20 41 75 64 69 6f 20 6d |0003;..{| Audio m|
|00001450| 69 78 65 64 20 69 6e 20 | 72 69 67 68 74 20 6f 6e |ixed in |right on|
|00001460| 6c 79 2e 20 7d 0d 09 6d | 63 41 75 64 69 6f 52 69 |ly. }..m|cAudioRi|
|00001470| 6e 4c 20 3d 20 24 30 30 | 30 34 3b 09 09 7b 20 41 |nL = $00|04;..{ A|
|00001480| 75 64 69 6f 20 72 69 67 | 68 74 20 69 6e 20 6c 65 |udio rig|ht in le|
|00001490| 66 74 20 6f 6e 6c 79 2e | 20 7d 0d 09 6d 63 41 75 |ft only.| }..mcAu|
|000014a0| 64 69 6f 52 69 6e 4c 52 | 20 3d 20 24 30 30 30 35 |dioRinLR| = $0005|
|000014b0| 3b 09 09 7b 20 41 75 64 | 69 6f 20 72 69 67 68 74 |;..{ Aud|io right|
|000014c0| 20 69 6e 20 6c 65 66 74 | 20 61 6e 64 20 72 69 67 | in left| and rig|
|000014d0| 68 74 2e 20 7d 0d 09 6d | 63 41 75 64 69 6f 52 65 |ht. }..m|cAudioRe|
|000014e0| 76 65 72 73 65 20 3d 20 | 24 30 30 30 36 3b 09 09 |verse = |$0006;..|
|000014f0| 7b 20 41 75 64 69 6f 20 | 72 69 67 68 74 20 69 6e |{ Audio |right in|
|00001500| 20 6c 65 66 74 2c 20 6c | 65 66 74 20 69 6e 20 72 | left, l|eft in r|
|00001510| 69 67 68 74 2e 20 7d 0d | 09 6d 63 41 75 64 69 6f |ight. }.|.mcAudio|
|00001520| 52 69 6e 4c 4d 52 20 3d | 20 24 30 30 30 37 3b 09 |RinLMR =| $0007;.|
|00001530| 09 7b 20 41 75 64 69 6f | 20 72 69 67 68 74 20 69 |.{ Audio| right i|
|00001540| 6e 20 6c 65 66 74 2c 20 | 6d 69 78 65 64 20 69 6e |n left, |mixed in|
|00001550| 20 72 69 67 68 74 2e 20 | 7d 0d 09 6d 63 41 75 64 | right. |}..mcAud|
|00001560| 69 6f 4c 65 66 74 20 3d | 20 24 30 30 30 38 3b 09 |ioLeft =| $0008;.|
|00001570| 09 7b 20 41 75 64 69 6f | 20 6c 65 66 74 20 63 68 |.{ Audio| left ch|
|00001580| 61 6e 6e 65 6c 20 6f 6e | 6c 79 2e 20 7d 0d 09 6d |annel on|ly. }..m|
|00001590| 63 41 75 64 69 6f 53 74 | 65 72 65 6f 20 3d 20 24 |cAudioSt|ereo = $|
|000015a0| 30 30 30 39 3b 09 09 7b | 20 41 75 64 69 6f 20 62 |0009;..{| Audio b|
|000015b0| 6f 74 68 20 63 68 61 6e | 6e 65 6c 73 20 28 69 6e |oth chan|nels (in|
|000015c0| 20 73 74 65 72 65 6f 29 | 2e 20 7d 0d 09 6d 63 41 | stereo)|. }..mcA|
|000015d0| 75 64 69 6f 4c 69 6e 4c | 52 20 3d 20 24 30 30 30 |udioLinL|R = $000|
|000015e0| 41 3b 09 09 7b 20 41 75 | 64 69 6f 20 6c 65 66 74 |A;..{ Au|dio left|
|000015f0| 20 69 6e 20 6c 65 66 74 | 20 61 6e 64 20 72 69 67 | in left| and rig|
|00001600| 68 74 2e 20 7d 0d 09 6d | 63 41 75 64 69 6f 4c 69 |ht. }..m|cAudioLi|
|00001610| 6e 4c 4d 52 20 3d 20 24 | 30 30 30 42 3b 09 09 7b |nLMR = $|000B;..{|
|00001620| 20 41 75 64 69 6f 20 6c | 65 66 74 20 69 6e 20 6c | Audio l|eft in l|
|00001630| 65 66 74 2c 20 6d 69 78 | 65 64 20 69 6e 20 72 69 |eft, mix|ed in ri|
|00001640| 67 68 74 2e 20 7d 0d 09 | 6d 63 41 75 64 69 6f 4d |ght. }..|mcAudioM|
|00001650| 69 6e 4c 20 3d 20 24 30 | 30 30 43 3b 09 09 7b 20 |inL = $0|00C;..{ |
|00001660| 41 75 64 69 6f 20 6d 69 | 78 65 64 20 69 6e 20 6c |Audio mi|xed in l|
|00001670| 65 66 74 20 6f 6e 6c 79 | 2e 20 7d 0d 09 6d 63 41 |eft only|. }..mcA|
|00001680| 75 64 69 6f 4d 69 6e 4c | 52 69 6e 52 20 3d 20 24 |udioMinL|RinR = $|
|00001690| 30 30 30 44 3b 09 7b 20 | 41 75 64 69 6f 20 6d 69 |000D;.{ |Audio mi|
|000016a0| 78 65 64 20 69 6e 20 6c | 65 66 74 2c 20 72 69 67 |xed in l|eft, rig|
|000016b0| 68 74 20 69 6e 20 72 69 | 67 68 74 2e 20 7d 0d 09 |ht in ri|ght. }..|
|000016c0| 6d 63 41 75 64 69 6f 4d | 69 6e 4c 4c 69 6e 52 20 |mcAudioM|inLLinR |
|000016d0| 3d 20 24 30 30 30 45 3b | 09 7b 20 41 75 64 69 6f |= $000E;|.{ Audio|
|000016e0| 20 6d 69 78 65 64 20 69 | 6e 20 6c 65 66 74 2c 20 | mixed i|n left, |
|000016f0| 6c 65 66 74 20 69 6e 20 | 72 69 67 68 74 2e 20 7d |left in |right. }|
|00001700| 0d 09 6d 63 41 75 64 69 | 6f 4d 6f 6e 61 75 72 61 |..mcAudi|oMonaura|
|00001710| 6c 20 3d 20 24 30 30 30 | 46 3b 09 7b 20 41 75 64 |l = $000|F;.{ Aud|
|00001720| 69 6f 20 6d 69 78 65 64 | 20 69 6e 20 6c 65 66 74 |io mixed| in left|
|00001730| 20 61 6e 64 20 72 69 67 | 68 74 20 28 6d 6f 6e 61 | and rig|ht (mona|
|00001740| 75 72 61 6c 29 2e 20 7d | 0d 0d 0d 0d 7b 09 45 72 |ural). }|....{.Er|
|00001750| 72 6f 72 20 63 6f 64 65 | 73 3a 20 7d 0d 0d 09 6d |ror code|s: }...m|
|00001760| 63 55 6e 49 6d 70 20 3d | 20 24 32 36 30 31 3b 09 |cUnImp =| $2601;.|
|00001770| 09 7b 20 55 6e 69 6d 70 | 6c 65 6d 65 6e 74 65 64 |.{ Unimp|lemented|
|00001780| 20 66 6f 72 20 74 68 69 | 73 20 64 65 76 69 63 65 | for thi|s device|
|00001790| 2e 20 7d 0d 09 6d 63 4e | 6f 74 41 70 70 6c 69 63 |. }..mcN|otApplic|
|000017a0| 20 3d 20 6d 63 55 6e 49 | 6d 70 3b 09 7b 20 3c 73 | = mcUnI|mp;.{ <s|
|000017b0| 65 65 20 6d 63 55 6e 49 | 6d 70 3e 20 7d 0d 09 6d |ee mcUnI|mp> }..m|
|000017c0| 63 42 61 64 53 70 65 65 | 64 20 3d 20 24 32 36 30 |cBadSpee|d = $260|
|000017d0| 32 3b 09 09 7b 20 49 6e | 76 61 6c 69 64 20 73 70 |2;..{ In|valid sp|
|000017e0| 65 65 64 20 73 70 65 63 | 69 66 69 65 64 2e 20 7d |eed spec|ified. }|
|000017f0| 0d 09 6d 63 42 61 64 55 | 6e 69 74 54 79 70 65 20 |..mcBadU|nitType |
|00001800| 3d 20 24 32 36 30 33 3b | 09 7b 20 49 6e 76 61 6c |= $2603;|.{ Inval|
|00001810| 69 64 20 75 6e 69 74 20 | 74 79 70 65 20 73 70 65 |id unit |type spe|
|00001820| 63 69 66 69 65 64 2e 20 | 7d 0d 09 6d 63 54 69 6d |cified. |}..mcTim|
|00001830| 65 4f 75 74 45 72 72 20 | 3d 20 24 32 36 30 34 3b |eOutErr |= $2604;|
|00001840| 09 7b 20 54 69 6d 65 64 | 20 6f 75 74 20 64 75 72 |.{ Timed| out dur|
|00001850| 69 6e 67 20 64 65 76 69 | 63 65 20 72 65 61 64 2e |ing devi|ce read.|
|00001860| 20 7d 0d 09 6d 63 4e 6f | 74 4c 6f 61 64 65 64 20 | }..mcNo|tLoaded |
|00001870| 3d 20 24 32 36 30 35 3b | 09 7b 20 4e 6f 20 64 72 |= $2605;|.{ No dr|
|00001880| 69 76 65 72 20 69 73 20 | 63 75 72 72 65 6e 74 6c |iver is |currentl|
|00001890| 79 20 6c 6f 61 64 65 64 | 2e 20 7d 0d 09 6d 63 42 |y loaded|. }..mcB|
|000018a0| 61 64 41 75 64 69 6f 20 | 3d 20 24 32 36 30 36 3b |adAudio |= $2606;|
|000018b0| 09 09 7b 20 49 6e 76 61 | 6c 69 64 20 61 75 64 69 |..{ Inva|lid audi|
|000018c0| 6f 20 76 61 6c 75 65 2e | 20 7d 0d 09 6d 63 44 65 |o value.| }..mcDe|
|000018d0| 76 52 74 6e 45 72 72 6f | 72 20 3d 20 24 32 36 30 |vRtnErro|r = $260|
|000018e0| 37 3b 09 7b 20 44 65 76 | 69 63 65 20 72 65 74 75 |7;.{ Dev|ice retu|
|000018f0| 72 6e 65 64 20 65 72 72 | 6f 72 20 28 75 6e 61 62 |rned err|or (unab|
|00001900| 6c 65 20 74 6f 20 70 65 | 72 66 6f 72 6d 29 2e 20 |le to pe|rform). |
|00001910| 7d 0d 09 6d 63 55 6e 52 | 65 63 53 74 61 74 75 73 |}..mcUnR|ecStatus|
|00001920| 20 3d 20 24 32 36 30 38 | 3b 09 7b 20 55 6e 72 65 | = $2608|;.{ Unre|
|00001930| 63 6f 67 6e 69 7a 61 62 | 6c 65 20 73 74 61 74 75 |cognizab|le statu|
|00001940| 73 20 66 72 6f 6d 20 64 | 65 76 69 63 65 2e 20 7d |s from d|evice. }|
|00001950| 0d 09 6d 63 42 61 64 53 | 65 6c 65 63 74 6f 72 20 |..mcBadS|elector |
|00001960| 3d 20 24 32 36 30 39 3b | 09 7b 20 49 6e 76 61 6c |= $2609;|.{ Inval|
|00001970| 69 64 20 73 65 6c 65 63 | 74 6f 72 20 76 61 6c 75 |id selec|tor valu|
|00001980| 65 20 73 70 65 63 69 66 | 69 65 64 2e 20 7d 0d 09 |e specif|ied. }..|
|00001990| 6d 63 46 75 6e 6e 79 44 | 61 74 61 20 3d 20 24 32 |mcFunnyD|ata = $2|
|000019a0| 36 30 41 3b 09 7b 20 46 | 75 6e 6e 79 20 64 61 74 |60A;.{ F|unny dat|
|000019b0| 61 20 72 65 63 65 69 76 | 65 64 20 28 74 72 79 20 |a receiv|ed (try |
|000019c0| 61 67 61 69 6e 29 2e 20 | 7d 0d 09 6d 63 49 6e 76 |again). |}..mcInv|
|000019d0| 61 6c 69 64 50 6f 72 74 | 20 3d 20 24 32 36 30 42 |alidPort| = $260B|
|000019e0| 3b 09 7b 20 49 6e 76 61 | 6c 69 64 20 70 6f 72 74 |;.{ Inva|lid port|
|000019f0| 20 73 70 65 63 69 66 69 | 65 64 2e 20 7d 0d 09 6d | specifi|ed. }..m|
|00001a00| 63 4f 6e 6c 79 4f 6e 63 | 65 20 3d 20 24 32 36 30 |cOnlyOnc|e = $260|
|00001a10| 43 3b 09 09 7b 20 53 63 | 61 6e 73 20 6f 6e 6c 79 |C;..{ Sc|ans only|
|00001a20| 20 6f 6e 63 65 2e 20 7d | 0d 09 6d 63 4e 6f 52 65 | once. }|..mcNoRe|
|00001a30| 73 4d 67 72 20 3d 20 24 | 32 36 30 44 3b 09 09 7b |sMgr = $|260D;..{|
|00001a40| 20 52 65 73 6f 75 72 63 | 65 20 6d 61 6e 61 67 65 | Resourc|e manage|
|00001a50| 72 20 6e 6f 74 20 61 63 | 74 69 76 65 2e 20 7d 0d |r not ac|tive. }.|
|00001a60| 09 6d 63 49 74 65 6d 4e | 6f 74 54 68 65 72 65 20 |.mcItemN|otThere |
|00001a70| 3d 20 24 32 36 30 45 3b | 09 7b 20 49 74 65 6d 20 |= $260E;|.{ Item |
|00001a80| 6e 6f 74 20 66 6f 75 6e | 64 20 69 6e 20 64 61 74 |not foun|d in dat|
|00001a90| 61 62 61 73 65 2e 20 7d | 0d 09 6d 63 57 61 73 53 |abase. }|..mcWasS|
|00001aa0| 68 75 74 44 6f 77 6e 20 | 3d 20 24 32 36 30 46 3b |hutDown |= $260F;|
|00001ab0| 09 7b 20 4d 65 64 69 61 | 20 43 6f 6e 74 72 6f 6c |.{ Media| Control|
|00001ac0| 20 54 6f 6f 6c 73 65 74 | 20 77 61 73 20 61 6c 72 | Toolset| was alr|
|00001ad0| 65 61 64 79 20 73 68 75 | 74 20 64 6f 77 6e 2e 20 |eady shu|t down. |
|00001ae0| 7d 0d 09 6d 63 57 61 73 | 53 74 61 72 74 65 64 20 |}..mcWas|Started |
|00001af0| 3d 20 24 32 36 31 30 3b | 09 7b 20 4d 65 64 69 61 |= $2610;|.{ Media|
|00001b00| 20 43 6f 6e 74 72 6f 6c | 20 54 6f 6f 6c 73 65 74 | Control| Toolset|
|00001b10| 20 77 61 73 20 61 6c 72 | 65 61 64 79 20 73 74 61 | was alr|eady sta|
|00001b20| 72 74 65 64 2e 20 7d 0d | 09 6d 63 42 61 64 43 68 |rted. }.|.mcBadCh|
|00001b30| 61 6e 6e 65 6c 20 3d 20 | 24 32 36 31 31 3b 09 7b |annel = |$2611;.{|
|00001b40| 20 49 6e 76 61 6c 69 64 | 20 63 68 61 6e 6e 65 6c | Invalid| channel|
|00001b50| 20 6e 75 6d 62 65 72 2e | 20 7d 0d 09 6d 63 49 6e | number.| }..mcIn|
|00001b60| 76 61 6c 69 64 50 61 72 | 61 6d 20 3d 20 24 32 36 |validPar|am = $26|
|00001b70| 31 32 3b 09 7b 20 49 6e | 76 61 6c 69 64 20 70 61 |12;.{ In|valid pa|
|00001b80| 72 61 6d 65 74 65 72 2e | 20 7d 0d 09 6d 63 43 61 |rameter.| }..mcCa|
|00001b90| 6c 6c 4e 6f 74 53 75 70 | 70 6f 72 74 65 64 20 3d |llNotSup|ported =|
|00001ba0| 20 24 32 36 31 33 3b 09 | 7b 20 43 61 6c 6c 20 69 | $2613;.|{ Call i|
|00001bb0| 73 20 6e 6f 74 20 73 75 | 70 70 6f 72 74 65 64 2e |s not su|pported.|
|00001bc0| 20 7d 0d 0d 54 59 50 45 | 0d 09 74 65 72 6d 4d 61 | }..TYPE|..termMa|
|00001bd0| 73 6b 52 65 63 3d 20 50 | 41 43 4b 45 44 20 52 45 |skRec= P|ACKED RE|
|00001be0| 43 4f 52 44 0d 09 09 6d | 61 73 6b 3a 20 43 48 41 |CORD...m|ask: CHA|
|00001bf0| 52 3b 0d 09 09 74 65 72 | 6d 43 68 61 72 3a 20 43 |R;...ter|mChar: C|
|00001c00| 48 41 52 3b 0d 09 09 45 | 4e 44 20 28 2a 20 74 65 |HAR;...E|ND (* te|
|00001c10| 72 6d 4d 61 73 6b 52 65 | 63 20 2a 29 3b 0d 0d 0d |rmMaskRe|c *);...|
|00001c20| 28 2a 20 47 65 6e 65 72 | 69 63 20 74 6f 6f 6c 20 |(* Gener|ic tool |
|00001c30| 63 61 6c 6c 73 20 2a 29 | 0d 0d 50 52 4f 43 45 44 |calls *)|..PROCED|
|00001c40| 55 52 45 20 4d 43 42 6f | 6f 74 49 6e 69 74 3b 0d |URE MCBo|otInit;.|
|00001c50| 50 52 4f 43 45 44 55 52 | 45 20 4d 43 53 74 61 72 |PROCEDUR|E MCStar|
|00001c60| 74 55 70 28 75 73 65 72 | 49 44 3a 49 4e 54 45 47 |tUp(user|ID:INTEG|
|00001c70| 45 52 29 3b 0d 50 52 4f | 43 45 44 55 52 45 20 4d |ER);.PRO|CEDURE M|
|00001c80| 43 53 68 75 74 44 6f 77 | 6e 3b 0d 46 55 4e 43 54 |CShutDow|n;.FUNCT|
|00001c90| 49 4f 4e 20 4d 43 56 65 | 72 73 69 6f 6e 20 3a 20 |ION MCVe|rsion : |
|00001ca0| 49 4e 54 45 47 45 52 3b | 0d 50 52 4f 43 45 44 55 |INTEGER;|.PROCEDU|
|00001cb0| 52 45 20 4d 43 52 65 73 | 65 74 3b 0d 46 55 4e 43 |RE MCRes|et;.FUNC|
|00001cc0| 54 49 4f 4e 20 4d 43 53 | 74 61 74 75 73 20 3a 20 |TION MCS|tatus : |
|00001cd0| 42 4f 4f 4c 45 41 4e 3b | 0d 0d 28 2a 20 44 72 69 |BOOLEAN;|..(* Dri|
|00001ce0| 76 65 72 20 73 70 65 63 | 69 66 69 63 20 72 6f 75 |ver spec|ific rou|
|00001cf0| 74 69 6e 65 73 20 2a 29 | 0d 0d 50 52 4f 43 45 44 |tines *)|..PROCED|
|00001d00| 55 52 45 20 4d 43 4c 6f | 61 64 44 72 69 76 65 72 |URE MCLo|adDriver|
|00001d10| 28 6d 63 43 68 61 6e 6e | 65 6c 4e 6f 3a 20 49 4e |(mcChann|elNo: IN|
|00001d20| 54 45 47 45 52 29 3b 0d | 50 52 4f 43 45 44 55 52 |TEGER);.|PROCEDUR|
|00001d30| 45 20 4d 43 55 6e 4c 6f | 61 64 44 72 69 76 65 72 |E MCUnLo|adDriver|
|00001d40| 28 6d 63 43 68 61 6e 6e | 65 6c 4e 6f 3a 20 49 4e |(mcChann|elNo: IN|
|00001d50| 54 45 47 45 52 29 3b 0d | 50 52 4f 43 45 44 55 52 |TEGER);.|PROCEDUR|
|00001d60| 45 20 4d 43 44 53 74 61 | 72 74 55 70 28 6d 63 43 |E MCDSta|rtUp(mcC|
|00001d70| 68 61 6e 6e 65 6c 4e 6f | 3a 20 49 4e 54 45 47 45 |hannelNo|: INTEGE|
|00001d80| 52 3b 20 20 70 6f 72 74 | 4e 61 6d 65 50 74 72 3a |R;  port|NamePtr:|
|00001d90| 20 53 74 72 69 6e 67 32 | 35 35 50 74 72 3b 20 64 | String2|55Ptr; d|
|00001da0| 72 76 72 55 73 65 72 49 | 44 3a 20 49 4e 54 45 47 |rvrUserI|D: INTEG|
|00001db0| 45 52 29 3b 0d 50 52 4f | 43 45 44 55 52 45 20 4d |ER);.PRO|CEDURE M|
|00001dc0| 43 44 53 68 75 74 44 6f | 77 6e 28 6d 63 43 68 61 |CDShutDo|wn(mcCha|
|00001dd0| 6e 6e 65 6c 4e 6f 3a 20 | 49 4e 54 45 47 45 52 29 |nnelNo: |INTEGER)|
|00001de0| 3b 0d 0d 28 2a 20 47 65 | 6e 65 72 69 63 20 63 6f |;..(* Ge|neric co|
|00001df0| 6e 74 72 6f 6c 6c 65 72 | 20 72 6f 75 74 69 6e 65 |ntroller| routine|
|00001e00| 73 20 2a 29 0d 0d 46 55 | 4e 43 54 49 4f 4e 20 4d |s *)..FU|NCTION M|
|00001e10| 43 42 69 6e 54 6f 54 69 | 6d 65 28 6d 63 42 69 6e |CBinToTi|me(mcBin|
|00001e20| 56 61 6c 3a 20 4c 6f 6e | 67 69 6e 74 29 20 3a 20 |Val: Lon|gint) : |
|00001e30| 4c 6f 6e 67 49 6e 74 3b | 0d 50 52 4f 43 45 44 55 |LongInt;|.PROCEDU|
|00001e40| 52 45 20 4d 43 43 6f 6e | 74 72 6f 6c 28 6d 63 43 |RE MCCon|trol(mcC|
|00001e50| 68 61 6e 6e 65 6c 4e 6f | 2c 20 63 74 6c 43 6f 6d |hannelNo|, ctlCom|
|00001e60| 6d 61 6e 64 3a 20 49 4e | 54 45 47 45 52 29 3b 0d |mand: IN|TEGER);.|
|00001e70| 46 55 4e 43 54 49 4f 4e | 20 4d 43 47 65 74 44 69 |FUNCTION| MCGetDi|
|00001e80| 73 63 49 44 28 6d 63 43 | 68 61 6e 6e 65 6c 4e 6f |scID(mcC|hannelNo|
|00001e90| 3a 20 49 4e 54 45 47 45 | 52 29 20 3a 20 4c 6f 6e |: INTEGE|R) : Lon|
|00001ea0| 67 49 6e 74 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |gInt;.PR|OCEDURE |
|00001eb0| 4d 43 47 65 74 44 69 73 | 63 54 69 74 6c 65 28 6d |MCGetDis|cTitle(m|
|00001ec0| 63 44 69 73 63 73 49 44 | 3a 20 4c 6f 6e 67 49 6e |cDiscsID|: LongIn|
|00001ed0| 74 3b 20 74 69 74 6c 65 | 50 74 72 3a 20 53 74 72 |t; title|Ptr: Str|
|00001ee0| 69 6e 67 32 35 35 50 74 | 72 29 3b 0d 46 55 4e 43 |ing255Pt|r);.FUNC|
|00001ef0| 54 49 4f 4e 20 4d 43 47 | 65 74 44 69 73 63 54 4f |TION MCG|etDiscTO|
|00001f00| 43 28 6d 63 43 68 61 6e | 6e 65 6c 4e 6f 2c 20 6d |C(mcChan|nelNo, m|
|00001f10| 63 54 72 61 63 6b 4e 6f | 3a 20 49 4e 54 45 47 45 |cTrackNo|: INTEGE|
|00001f20| 52 29 20 3a 20 4c 6f 6e | 67 49 6e 74 3b 0d 50 52 |R) : Lon|gInt;.PR|
|00001f30| 4f 43 45 44 55 52 45 20 | 4d 43 47 65 74 45 72 72 |OCEDURE |MCGetErr|
|00001f40| 6f 72 4d 73 67 28 6d 63 | 45 72 72 6f 72 4e 6f 3a |orMsg(mc|ErrorNo:|
|00001f50| 20 49 4e 54 45 47 45 52 | 3b 20 6d 73 67 50 74 72 | INTEGER|; msgPtr|
|00001f60| 3a 20 53 74 72 69 6e 67 | 32 35 35 50 74 72 29 3b |: String|255Ptr);|
|00001f70| 0d 46 55 4e 43 54 49 4f | 4e 20 4d 43 47 65 74 46 |.FUNCTIO|N MCGetF|
|00001f80| 65 61 74 75 72 65 73 28 | 6d 63 43 68 61 6e 6e 65 |eatures(|mcChanne|
|00001f90| 6c 4e 6f 2c 20 6d 63 46 | 65 61 74 53 65 6c 3a 20 |lNo, mcF|eatSel: |
|00001fa0| 49 4e 54 45 47 45 52 29 | 20 3a 20 4c 6f 6e 67 49 |INTEGER)| : LongI|
|00001fb0| 6e 74 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 4d 43 |nt;.PROC|EDURE MC|
|00001fc0| 47 65 74 4e 61 6d 65 28 | 6d 63 43 68 61 6e 6e 65 |GetName(|mcChanne|
|00001fd0| 6c 4e 6f 3a 20 49 4e 54 | 45 47 45 52 3b 20 6e 61 |lNo: INT|EGER; na|
|00001fe0| 6d 65 50 74 72 3a 20 53 | 74 72 69 6e 67 32 35 35 |mePtr: S|tring255|
|00001ff0| 50 74 72 29 3b 0d 46 55 | 4e 43 54 49 4f 4e 20 4d |Ptr);.FU|NCTION M|
|00002000| 43 47 65 74 4e 6f 54 72 | 61 63 6b 73 28 6d 63 43 |CGetNoTr|acks(mcC|
|00002010| 68 61 6e 6e 65 6c 4e 6f | 3a 20 49 4e 54 45 47 45 |hannelNo|: INTEGE|
|00002020| 52 29 20 3a 20 49 4e 54 | 45 47 45 52 3b 0d 46 55 |R) : INT|EGER;.FU|
|00002030| 4e 43 54 49 4f 4e 20 4d | 43 47 65 74 50 6f 73 69 |NCTION M|CGetPosi|
|00002040| 74 69 6f 6e 28 6d 63 43 | 68 61 6e 6e 65 6c 4e 6f |tion(mcC|hannelNo|
|00002050| 2c 20 6d 63 55 6e 69 74 | 54 79 70 65 3a 20 49 4e |, mcUnit|Type: IN|
|00002060| 54 45 47 45 52 29 20 3a | 20 4c 6f 6e 67 49 6e 74 |TEGER) :| LongInt|
|00002070| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 4d 43 47 65 |;.PROCED|URE MCGe|
|00002080| 74 50 72 6f 67 72 61 6d | 28 6d 63 44 69 73 63 73 |tProgram|(mcDiscs|
|00002090| 49 44 3a 20 4c 6f 6e 67 | 49 6e 74 3b 20 6d 63 50 |ID: Long|Int; mcP|
|000020a0| 72 6f 67 50 74 72 3a 20 | 72 65 73 75 6c 74 62 75 |rogPtr: |resultbu|
|000020b0| 66 32 35 35 70 74 72 29 | 3b 0d 50 52 4f 43 45 44 |f255ptr)|;.PROCED|
|000020c0| 55 52 45 20 4d 43 47 65 | 74 53 70 65 65 64 73 28 |URE MCGe|tSpeeds(|
|000020d0| 6d 63 43 68 61 6e 6e 65 | 6c 4e 6f 3a 20 49 4e 54 |mcChanne|lNo: INT|
|000020e0| 45 47 45 52 3b 20 73 70 | 65 65 64 4c 69 73 74 50 |EGER; sp|eedListP|
|000020f0| 74 72 3a 20 53 74 72 69 | 6e 67 32 35 35 50 74 72 |tr: Stri|ng255Ptr|
|00002100| 29 3b 0d 46 55 4e 43 54 | 49 4f 4e 20 4d 43 47 65 |);.FUNCT|ION MCGe|
|00002110| 74 53 74 61 74 75 73 28 | 6d 63 43 68 61 6e 6e 65 |tStatus(|mcChanne|
|00002120| 6c 4e 6f 2c 20 6d 63 53 | 74 61 74 75 73 53 65 6c |lNo, mcS|tatusSel|
|00002130| 3a 20 49 4e 54 45 47 45 | 52 29 20 3a 20 49 4e 54 |: INTEGE|R) : INT|
|00002140| 45 47 45 52 3b 0d 46 55 | 4e 43 54 49 4f 4e 20 4d |EGER;.FU|NCTION M|
|00002150| 43 47 65 74 54 69 6d 65 | 73 28 6d 63 43 68 61 6e |CGetTime|s(mcChan|
|00002160| 6e 65 6c 4e 6f 2c 20 6d | 63 54 69 6d 65 73 53 65 |nelNo, m|cTimesSe|
|00002170| 6c 3a 20 49 4e 54 45 47 | 45 52 29 20 3a 20 4c 6f |l: INTEG|ER) : Lo|
|00002180| 6e 67 49 6e 74 3b 0d 50 | 52 4f 43 45 44 55 52 45 |ngInt;.P|ROCEDURE|
|00002190| 20 4d 43 47 65 74 54 72 | 61 63 6b 54 69 74 6c 65 | MCGetTr|ackTitle|
|000021a0| 28 6d 63 44 69 73 63 73 | 49 44 2c 20 6d 63 54 72 |(mcDiscs|ID, mcTr|
|000021b0| 61 63 6b 4e 6f 3a 20 49 | 4e 54 45 47 45 52 3b 20 |ackNo: I|NTEGER; |
|000021c0| 74 72 54 69 74 6c 65 50 | 74 72 3a 20 53 74 72 69 |trTitleP|tr: Stri|
|000021d0| 6e 67 32 35 35 50 74 72 | 29 3b 0d 50 52 4f 43 45 |ng255Ptr|);.PROCE|
|000021e0| 44 55 52 45 20 4d 43 4a | 6f 67 28 6d 63 43 68 61 |DURE MCJ|og(mcCha|
|000021f0| 6e 6e 65 6c 4e 6f 2c 20 | 6d 63 55 6e 69 74 54 79 |nnelNo, |mcUnitTy|
|00002200| 70 65 3a 20 49 4e 54 45 | 47 45 52 3b 20 20 6d 63 |pe: INTE|GER;  mc|
|00002210| 4e 4a 6f 67 3a 20 4c 6f | 6e 67 49 6e 74 3b 20 6d |NJog: Lo|ngInt; m|
|00002220| 63 4a 6f 67 52 65 70 65 | 61 74 3a 49 4e 54 45 47 |cJogRepe|at:INTEG|
|00002230| 45 52 29 3b 0d 50 52 4f | 43 45 44 55 52 45 20 4d |ER);.PRO|CEDURE M|
|00002240| 43 50 61 75 73 65 28 6d | 63 43 68 61 6e 6e 65 6c |CPause(m|cChannel|
|00002250| 4e 6f 3a 20 49 4e 54 45 | 47 45 52 29 3b 0d 50 52 |No: INTE|GER);.PR|
|00002260| 4f 43 45 44 55 52 45 20 | 4d 43 50 6c 61 79 28 6d |OCEDURE |MCPlay(m|
|00002270| 63 43 68 61 6e 6e 65 6c | 4e 6f 3a 20 49 4e 54 45 |cChannel|No: INTE|
|00002280| 47 45 52 29 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |GER);.PR|OCEDURE |
|00002290| 4d 43 52 65 63 6f 72 64 | 28 6d 63 43 68 61 6e 6e |MCRecord|(mcChann|
|000022a0| 65 6c 4e 6f 3a 20 49 4e | 54 45 47 45 52 29 3b 0d |elNo: IN|TEGER);.|
|000022b0| 50 52 4f 43 45 44 55 52 | 45 20 4d 43 53 65 74 41 |PROCEDUR|E MCSetA|
|000022c0| 75 64 69 6f 28 6d 63 43 | 68 61 6e 6e 65 6c 4e 6f |udio(mcC|hannelNo|
|000022d0| 2c 20 6d 63 41 75 64 69 | 6f 43 74 6c 3a 20 49 4e |, mcAudi|oCtl: IN|
|000022e0| 54 45 47 45 52 29 3b 0d | 50 52 4f 43 45 44 55 52 |TEGER);.|PROCEDUR|
|000022f0| 45 20 4d 43 53 65 74 56 | 6f 6c 75 6d 65 28 6d 63 |E MCSetV|olume(mc|
|00002300| 43 68 61 6e 6e 65 6c 4e | 6f 2c 20 6d 63 4c 65 66 |ChannelN|o, mcLef|
|00002310| 74 56 6f 6c 2c 20 6d 63 | 52 69 67 68 74 56 6f 6c |tVol, mc|RightVol|
|00002320| 3a 20 49 4e 54 45 47 45 | 52 29 3b 0d 50 52 4f 43 |: INTEGE|R);.PROC|
|00002330| 45 44 55 52 45 20 4d 43 | 53 63 61 6e 28 6d 63 43 |EDURE MC|Scan(mcC|
|00002340| 68 61 6e 6e 65 6c 4e 6f | 2c 20 6d 63 44 69 72 65 |hannelNo|, mcDire|
|00002350| 63 74 69 6f 6e 3a 20 49 | 4e 54 45 47 45 52 29 3b |ction: I|NTEGER);|
|00002360| 0d 46 55 4e 43 54 49 4f | 4e 20 4d 43 53 65 61 72 |.FUNCTIO|N MCSear|
|00002370| 63 68 44 6f 6e 65 28 6d | 63 43 68 61 6e 6e 65 6c |chDone(m|cChannel|
|00002380| 4e 6f 3a 20 49 4e 54 45 | 47 45 52 29 3a 20 42 4f |No: INTE|GER): BO|
|00002390| 4f 4c 45 41 4e 3b 0d 50 | 52 4f 43 45 44 55 52 45 |OLEAN;.P|ROCEDURE|
|000023a0| 20 4d 43 53 65 61 72 63 | 68 54 6f 28 6d 63 43 68 | MCSearc|hTo(mcCh|
|000023b0| 61 6e 6e 65 6c 4e 6f 2c | 20 6d 63 55 6e 69 74 54 |annelNo,| mcUnitT|
|000023c0| 79 70 65 3a 20 49 4e 54 | 45 47 45 52 3b 20 20 73 |ype: INT|EGER;  s|
|000023d0| 65 61 72 63 68 4c 6f 63 | 3a 20 4c 6f 6e 67 49 6e |earchLoc|: LongIn|
|000023e0| 74 29 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 4d 43 |t);.PROC|EDURE MC|
|000023f0| 53 65 61 72 63 68 57 61 | 69 74 28 6d 63 43 68 61 |SearchWa|it(mcCha|
|00002400| 6e 6e 65 6c 4e 6f 3a 20 | 49 4e 54 45 47 45 52 29 |nnelNo: |INTEGER)|
|00002410| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 4d 43 53 65 |;.PROCED|URE MCSe|
|00002420| 6e 64 52 61 77 44 61 74 | 61 28 6d 63 43 68 61 6e |ndRawDat|a(mcChan|
|00002430| 6e 65 6c 4e 6f 3a 20 49 | 4e 54 45 47 45 52 3b 20 |nelNo: I|NTEGER; |
|00002440| 6d 63 4e 61 74 69 76 65 | 50 74 72 3a 20 67 73 73 |mcNative|Ptr: gss|
|00002450| 74 72 69 6e 67 32 35 35 | 50 74 72 29 3b 0d 50 52 |tring255|Ptr);.PR|
|00002460| 4f 43 45 44 55 52 45 20 | 4d 43 53 65 74 44 69 73 |OCEDURE |MCSetDis|
|00002470| 63 54 69 74 6c 65 28 6d | 63 44 69 73 63 73 49 44 |cTitle(m|cDiscsID|
|00002480| 3a 20 4c 6f 6e 67 49 6e | 74 3b 20 74 69 74 6c 65 |: LongIn|t; title|
|00002490| 50 74 72 3a 20 53 74 72 | 69 6e 67 32 35 35 50 74 |Ptr: Str|ing255Pt|
|000024a0| 72 29 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 4d 43 |r);.PROC|EDURE MC|
|000024b0| 53 65 74 50 72 6f 67 72 | 61 6d 28 6d 63 44 69 73 |SetProgr|am(mcDis|
|000024c0| 63 73 49 44 3a 20 4c 6f | 6e 67 49 6e 74 3b 20 6d |csID: Lo|ngInt; m|
|000024d0| 63 50 72 6f 67 50 74 72 | 3a 20 67 73 73 74 72 69 |cProgPtr|: gsstri|
|000024e0| 6e 67 32 35 35 70 74 72 | 29 3b 0d 50 52 4f 43 45 |ng255ptr|);.PROCE|
|000024f0| 44 55 52 45 20 4d 43 53 | 65 74 54 72 61 63 6b 54 |DURE MCS|etTrackT|
|00002500| 69 74 6c 65 28 6d 63 44 | 69 73 63 73 49 44 3a 20 |itle(mcD|iscsID: |
|00002510| 4c 6f 6e 67 49 6e 74 3b | 20 6d 63 54 72 61 63 6b |LongInt;| mcTrack|
|00002520| 4e 6f 3a 20 49 4e 54 45 | 47 45 52 3b 20 20 74 69 |No: INTE|GER;  ti|
|00002530| 74 6c 65 50 74 72 3a 20 | 53 74 72 69 6e 67 32 35 |tlePtr: |String25|
|00002540| 35 50 74 72 29 3b 0d 50 | 52 4f 43 45 44 55 52 45 |5Ptr);.P|ROCEDURE|
|00002550| 20 4d 43 53 70 65 65 64 | 28 6d 63 43 68 61 6e 6e | MCSpeed|(mcChann|
|00002560| 65 6c 4e 6f 2c 20 6d 63 | 46 50 53 3a 20 49 4e 54 |elNo, mc|FPS: INT|
|00002570| 45 47 45 52 29 3b 0d 50 | 52 4f 43 45 44 55 52 45 |EGER);.P|ROCEDURE|
|00002580| 20 4d 43 53 74 6f 70 28 | 6d 63 43 68 61 6e 6e 65 | MCStop(|mcChanne|
|00002590| 6c 4e 6f 3a 20 49 4e 54 | 45 47 45 52 29 3b 0d 50 |lNo: INT|EGER);.P|
|000025a0| 52 4f 43 45 44 55 52 45 | 20 4d 43 53 74 6f 70 41 |ROCEDURE| MCStopA|
|000025b0| 74 28 6d 63 43 68 61 6e | 6e 65 6c 4e 6f 2c 20 6d |t(mcChan|nelNo, m|
|000025c0| 63 55 6e 69 74 54 79 70 | 65 3a 20 49 4e 54 45 47 |cUnitTyp|e: INTEG|
|000025d0| 45 52 3b 20 6d 63 53 74 | 6f 70 4c 6f 63 3a 20 4c |ER; mcSt|opLoc: L|
|000025e0| 6f 6e 67 49 6e 74 29 3b | 0d 46 55 4e 43 54 49 4f |ongInt);|.FUNCTIO|
|000025f0| 4e 20 4d 43 54 69 6d 65 | 54 6f 42 69 6e 28 6d 63 |N MCTime|ToBin(mc|
|00002600| 54 69 6d 65 56 61 6c 75 | 65 3a 20 4c 6f 6e 67 49 |TimeValu|e: LongI|
|00002610| 6e 74 29 20 3a 20 4c 6f | 6e 67 49 6e 74 3b 0d 50 |nt) : Lo|ngInt;.P|
|00002620| 52 4f 43 45 44 55 52 45 | 20 4d 43 57 61 69 74 52 |ROCEDURE| MCWaitR|
|00002630| 61 77 44 61 74 61 28 6d | 63 43 68 61 6e 6e 65 6c |awData(m|cChannel|
|00002640| 4e 6f 3a 20 49 4e 54 45 | 47 45 52 3b 20 72 61 77 |No: INTE|GER; raw|
|00002650| 44 61 74 61 50 74 72 3a | 20 72 65 73 75 6c 74 62 |DataPtr:| resultb|
|00002660| 75 66 32 35 35 70 74 72 | 3b 0d 09 09 09 09 09 09 |uf255ptr|;.......|
|00002670| 74 69 63 6b 57 61 69 74 | 3a 20 49 4e 54 45 47 45 |tickWait|: INTEGE|
|00002680| 52 3b 20 20 74 65 72 6d | 4d 61 73 6b 3a 20 74 65 |R;  term|Mask: te|
|00002690| 72 6d 4d 61 73 6b 52 65 | 63 29 3b 0d 0d 0d 49 4d |rmMaskRe|c);...IM|
|000026a0| 50 4c 45 4d 45 4e 54 41 | 54 49 4f 4e 0d 45 4e 44 |PLEMENTA|TION.END|
|000026b0| 2e 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002700| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00002710| 00 00 01 24 0b 50 72 65 | 66 65 72 65 6e 63 65 73 |...$.Pre|ferences|
|00002720| 01 00 00 00 00 07 00 00 | 03 20 a0 da 48 2f a4 88 |........|. ..H/..|
|00002730| 0e 4d 65 64 69 61 43 6f | 6e 74 72 6f 6c 2e 70 4d |.MediaCo|ntrol.pM|
|00002740| 02 00 00 00 54 45 58 54 | 4d 50 53 20 01 00 ff ff |....TEXT|MPS ....|
|00002750| 00 00 54 45 58 54 4d 50 | 53 20 01 00 ff ff ff ff |..TEXTMP|S ......|
|00002760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002770| 00 00 a4 9f 5e 65 00 00 | 26 31 00 00 01 ac 6d 65 |....^e..|&1....me|
|00002780| 6e 74 73 75 01 00 00 00 | 00 00 00 00 04 89 a4 58 |ntsu....|.......X|
|00002790| 5d e2 a4 9e 6b b5 00 00 | 00 00 00 00 00 00 00 00 |]...k...|........|
|000027a0| 00 00 11 04 04 00 00 c0 | 00 00 00 00 00 00 00 00 |........|........|
|000027b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027c0| 00 00 00 00 00 00 00 00 | 00 00 0d 00 00 00 01 24 |........|.......$|
|000027d0| 07 51 4d 50 72 69 6e 74 | 02 00 00 00 54 45 58 54 |.QMPrint|....TEXT|
|000027e0| 4d 41 43 41 00 00 00 00 | 00 00 00 00 00 00 07 37 |MACA....|.......7|
|000027f0| 00 00 00 00 01 7b 00 00 | 06 00 00 00 00 00 00 00 |.....{..|........|
|00002800| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 72 00 65 |...H..Mo|naco.r.e|
|00002810| 64 69 61 43 6f 6e 74 72 | 6f 6c 2e 68 0d 3b 0d 3b |diaContr|ol.h.;.;|
|00002820| 0d 3b 20 43 6f 70 00 06 | 00 04 00 4c 00 6e 01 5f |.; Cop..|...L.n._|
|00002830| 02 2e 00 4c 00 6e 01 5f | 02 2e a4 a1 29 e3 00 00 |...L.n._|....)...|
|00002840| 1b a1 00 00 1b a1 00 00 | 1a e7 01 00 00 00 00 1e |........|........|
|00002850| 00 4c 00 6e 01 5f 02 2e | 00 4c 00 6e 01 5f 02 2e |.L.n._..|.L.n._..|
|00002860| 00 00 1a e7 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002870| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 93 |.....n..|.n...>..|
|00002880| d5 78 0b 64 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |.x.d....|.>..MPSR|
|00002890| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000028a0| 03 f0 ff ff 00 00 00 4c | 00 00 00 00 00 00 00 00 |.......L|........|
|000028b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+